home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d20 / dorskel2.arc / DOORSKL5.C < prev    next >
C/C++ Source or Header  |  1991-12-05  |  9KB  |  262 lines
  1. #ifndef __TURBOC__
  2.     #include <memory.h>
  3. #else
  4.     #include <mem.h>
  5. #endif
  6. #include "doorskel.h"
  7.  
  8.  
  9.  /* This module contains CRC routines for implementing file transfer
  10.     protocols or hash tables.  Omit module if you don't need them. */
  11.  
  12.  /* Callable routines: */
  13.  
  14.  int _pascal calcrc (char *ptrr, int count, int likexmodem);    /* 16 bit */
  15.  
  16.  long _fastcall crc32blk (char *str,int blklen);                /* 32 bit */
  17.  long _fastcall crc32str(char *str);
  18.  
  19.  
  20.  
  21.  
  22. /* First 16 bit CRC's (calculated) */
  23.  
  24.  
  25. #ifndef __TURBOC__
  26.  
  27.  #pragma optimize("eg",off)
  28.  #pragma loop_opt(off)
  29.  
  30. int _pascal calcrc (char *ptrr, int count, int likexmodem) {
  31.  
  32.     /* This function calculates the CRC used by the XMODEM/CRC Protocol
  33.        The first argument is a pointer to the message block.
  34.        The second argument is the number of bytes in the message block.
  35.        The function returns an integer which contains the CRC.
  36.        The low order 16 bits are the coefficients of the CRC. */
  37.  
  38.    unsigned int crc;
  39.    char         temp;
  40.  
  41.  
  42.     crc = 0;
  43.     count++;
  44.     while(--count) {
  45.         temp=*ptrr;
  46.         _asm {
  47.                     MOV     DX,[crc]
  48.                     XOR     DH,temp           ;init X^16 term
  49.                     XOR     DL,DL
  50.                     MOV     CX,8
  51.             CRCUP1: SHL     DX,1
  52.                     JNC     CRCUP2
  53.                     XOR     DX,1021h          ;X^12 + X^5 + 1
  54.             CRCUP2: LOOP    CRCUP1
  55.                     XOR     DH,BYTE PTR[crc]  ;finish X^16 term
  56.                     MOV     [crc],DX          ;update CRC accumulator
  57.         }
  58.         ptrr++;
  59.     }
  60.  
  61.     if(likexmodem) swab((char *)&crc,(char *)&count,sizeof(int));
  62.     else return crc;
  63.     return count;
  64. }
  65.  
  66.  #pragma optimize("eg",on)
  67.  #pragma loop_opt()
  68.  
  69. #else
  70.  
  71. /*
  72.     This code will calculate a 16-bit CRC.  crc_update() returns an
  73.     updated CRC value given a current CRC value and a character.
  74.     crc_finish() must be called once after all characters in a block
  75.     have been processed for a message to be _transmitted_ and returns
  76.     the calculated CRC which should be transmitted as the final 2
  77.     bytes of the character block.
  78.  
  79.     e.g.    crc_value = 0;          // initialize CRC
  80.             crc_value = crc_update( crc_value, ch);
  81.             .
  82.             .
  83.             crc_value = crc_finish( crc_value);
  84.  
  85.     _bits will contain the character to be processed in bits 0-7 and
  86.     the CRC in bits 8-23.  Bit 24 is used to test for overflow.
  87.     The value generated is the CCITT-recommended CRC generator of
  88.     x^16 + x^12 + x^5 + 1.  To produce a standard IBM synchronous
  89.     transmission protocol CRC, use #define XOR 0x01800500l, giving
  90.     x^16 + x^15 + x^2 + 1.
  91. */
  92.  
  93. #define XOR 0x01102100l
  94.  
  95. int crc_update (int crc,char crc_char) {
  96.  
  97.     long bits;
  98.     short index;
  99.  
  100.     bits = ((long)crc << 8)+crc_char;
  101.     for(index = 0;index < 8;index++){
  102.         bits <<= 1;
  103.         if(bits & 0x01000000l) bits^=XOR;
  104.     }
  105.     return((int)((bits & 0x00ffff00l) >> 8));
  106. }
  107.  
  108.  
  109. int crc_finish (int crc){
  110.     return(crc_update(crc_update(crc,'\0'),'\0'));
  111. }
  112.  
  113.  
  114. int _pascal calcrc (char *ptrr, int count, int likexmodem) {
  115.  
  116.    unsigned int crc;
  117.    char temp;
  118.  
  119.  
  120.     crc = 0;
  121.     count++;
  122.     while(--count) {
  123.         temp = *ptrr;
  124.         crc = crc_update(crc,temp);
  125.         ptrr++;
  126.     }
  127.     crc = crc_finish(crc);
  128.  
  129.     if(likexmodem) swab((char *)&crc,(char *)&count,sizeof(int));
  130.     else return crc;
  131.     return count;
  132. }
  133.  
  134. #endif
  135.  
  136.  
  137.  
  138.  
  139. /* Now 32 bit CRC's table-driven */
  140.  
  141.  
  142.  long cr3tab[] = {                   /* CRC polynomial 0xEDB88320 */
  143.  
  144.    0x00000000, 0x77073096, 0xee0e612c, 0x990951ba,
  145.    0x076dc419, 0x706af48f, 0xe963a535, 0x9e6495a3,
  146.    0x0edb8832, 0x79dcb8a4, 0xe0d5e91e, 0x97d2d988,
  147.    0x09b64c2b, 0x7eb17cbd, 0xe7b82d07, 0x90bf1d91,
  148.    0x1db71064, 0x6ab020f2, 0xf3b97148, 0x84be41de,
  149.    0x1adad47d, 0x6ddde4eb, 0xf4d4b551, 0x83d385c7,
  150.    0x136c9856, 0x646ba8c0, 0xfd62f97a, 0x8a65c9ec,
  151.    0x14015c4f, 0x63066cd9, 0xfa0f3d63, 0x8d080df5,
  152.    0x3b6e20c8, 0x4c69105e, 0xd56041e4, 0xa2677172,
  153.    0x3c03e4d1, 0x4b04d447, 0xd20d85fd, 0xa50ab56b,
  154.    0x35b5a8fa, 0x42b2986c, 0xdbbbc9d6, 0xacbcf940,
  155.    0x32d86ce3, 0x45df5c75, 0xdcd60dcf, 0xabd13d59,
  156.    0x26d930ac, 0x51de003a, 0xc8d75180, 0xbfd06116,
  157.    0x21b4f4b5, 0x56b3c423, 0xcfba9599, 0xb8bda50f,
  158.    0x2802b89e, 0x5f058808, 0xc60cd9b2, 0xb10be924,
  159.    0x2f6f7c87, 0x58684c11, 0xc1611dab, 0xb6662d3d,
  160.    0x76dc4190, 0x01db7106, 0x98d220bc, 0xefd5102a,
  161.    0x71b18589, 0x06b6b51f, 0x9fbfe4a5, 0xe8b8d433,
  162.    0x7807c9a2, 0x0f00f934, 0x9609a88e, 0xe10e9818,
  163.    0x7f6a0dbb, 0x086d3d2d, 0x91646c97, 0xe6635c01,
  164.    0x6b6b51f4, 0x1c6c6162, 0x856530d8, 0xf262004e,
  165.    0x6c0695ed, 0x1b01a57b, 0x8208f4c1, 0xf50fc457,
  166.    0x65b0d9c6, 0x12b7e950, 0x8bbeb8ea, 0xfcb9887c,
  167.    0x62dd1ddf, 0x15da2d49, 0x8cd37cf3, 0xfbd44c65,
  168.    0x4db26158, 0x3ab551ce, 0xa3bc0074, 0xd4bb30e2,
  169.    0x4adfa541, 0x3dd895d7, 0xa4d1c46d, 0xd3d6f4fb,
  170.    0x4369e96a, 0x346ed9fc, 0xad678846, 0xda60b8d0,
  171.    0x44042d73, 0x33031de5, 0xaa0a4c5f, 0xdd0d7cc9,
  172.    0x5005713c, 0x270241aa, 0xbe0b1010, 0xc90c2086,
  173.    0x5768b525, 0x206f85b3, 0xb966d409, 0xce61e49f,
  174.    0x5edef90e, 0x29d9c998, 0xb0d09822, 0xc7d7a8b4,
  175.    0x59b33d17, 0x2eb40d81, 0xb7bd5c3b, 0xc0ba6cad,
  176.    0xedb88320, 0x9abfb3b6, 0x03b6e20c, 0x74b1d29a,
  177.    0xead54739, 0x9dd277af, 0x04db2615, 0x73dc1683,
  178.    0xe3630b12, 0x94643b84, 0x0d6d6a3e, 0x7a6a5aa8,
  179.    0xe40ecf0b, 0x9309ff9d, 0x0a00ae27, 0x7d079eb1,
  180.    0xf00f9344, 0x8708a3d2, 0x1e01f268, 0x6906c2fe,
  181.    0xf762575d, 0x806567cb, 0x196c3671, 0x6e6b06e7,
  182.    0xfed41b76, 0x89d32be0, 0x10da7a5a, 0x67dd4acc,
  183.    0xf9b9df6f, 0x8ebeeff9, 0x17b7be43, 0x60b08ed5,
  184.    0xd6d6a3e8, 0xa1d1937e, 0x38d8c2c4, 0x4fdff252,
  185.    0xd1bb67f1, 0xa6bc5767, 0x3fb506dd, 0x48b2364b,
  186.    0xd80d2bda, 0xaf0a1b4c, 0x36034af6, 0x41047a60,
  187.    0xdf60efc3, 0xa867df55, 0x316e8eef, 0x4669be79,
  188.    0xcb61b38c, 0xbc66831a, 0x256fd2a0, 0x5268e236,
  189.    0xcc0c7795, 0xbb0b4703, 0x220216b9, 0x5505262f,
  190.    0xc5ba3bbe, 0xb2bd0b28, 0x2bb45a92, 0x5cb36a04,
  191.    0xc2d7ffa7, 0xb5d0cf31, 0x2cd99e8b, 0x5bdeae1d,
  192.    0x9b64c2b0, 0xec63f226, 0x756aa39c, 0x026d930a,
  193.    0x9c0906a9, 0xeb0e363f, 0x72076785, 0x05005713,
  194.    0x95bf4a82, 0xe2b87a14, 0x7bb12bae, 0x0cb61b38,
  195.    0x92d28e9b, 0xe5d5be0d, 0x7cdcefb7, 0x0bdbdf21,
  196.    0x86d3d2d4, 0xf1d4e242, 0x68ddb3f8, 0x1fda836e,
  197.    0x81be16cd, 0xf6b9265b, 0x6fb077e1, 0x18b74777,
  198.    0x88085ae6, 0xff0f6a70, 0x66063bca, 0x11010b5c,
  199.    0x8f659eff, 0xf862ae69, 0x616bffd3, 0x166ccf45,
  200.    0xa00ae278, 0xd70dd2ee, 0x4e048354, 0x3903b3c2,
  201.    0xa7672661, 0xd06016f7, 0x4969474d, 0x3e6e77db,
  202.    0xaed16a4a, 0xd9d65adc, 0x40df0b66, 0x37d83bf0,
  203.    0xa9bcae53, 0xdebb9ec5, 0x47b2cf7f, 0x30b5ffe9,
  204.    0xbdbdf21c, 0xcabac28a, 0x53b39330, 0x24b4a3a6,
  205.    0xbad03605, 0xcdd70693, 0x54de5729, 0x23d967bf,
  206.    0xb3667a2e, 0xc4614ab8, 0x5d681b02, 0x2a6f2b94,
  207.    0xb40bbe37, 0xc30c8ea1, 0x5a05df1b, 0x2d02ef8d
  208.  };
  209.  
  210.  
  211. /*-------------------------------------------------------------------------*/
  212. /* Calculate CRC-32 of variable length string                              */
  213. /*-------------------------------------------------------------------------*/
  214. /*                                                                         */
  215. /*  Usage: Passed pointer to ASCIIZ string to take CRC-32 of, as 'str'.    */
  216. /*                                                                         */
  217. /*   Rets: (long) CRC-32 value of passed string.                           */
  218. /*                                                                         */
  219. /*  Notes: The function treats the passed string as UPPER CASE so          */
  220. /*         it is insensitive to case.                                      */
  221. /*                                                                         */
  222. /*-------------------------------------------------------------------------*/
  223.  
  224. long _fastcall crc32str (char *str) {
  225.  
  226.    long crc = -1L;
  227.  
  228.  
  229.    while(*str) {
  230.       crc = cr3tab[((int)crc ^ toupper(*str)) & 0xff] ^ ((crc >> 8) & 0x00FFFFFF);
  231.       str++;
  232.    }
  233.  
  234.    return crc;
  235. }
  236.  
  237.  
  238.  
  239. /*-------------------------------------------------------------------------*/
  240. /* Calculate CRC-32 of memory block                                        */
  241. /*-------------------------------------------------------------------------*/
  242. /*                                                                         */
  243. /*  Usage: Passed pointer to memory block (cast to char *) as 'str' and    */
  244. /*         block length as int 'blklen'.                                   */
  245. /*                                                                         */
  246. /*   Rets: (long) CRC-32 value of passed block.                            */
  247. /*                                                                         */
  248. /*-------------------------------------------------------------------------*/
  249.  
  250. long _fastcall crc32blk (char *str,int blklen) {
  251.  
  252.    long crc = -1L;
  253.  
  254.  
  255.    while(blklen--) {
  256.       crc = cr3tab[((int)crc ^ *str) & 0xff] ^ ((crc >> 8) & 0x00FFFFFF);
  257.       str++;
  258.    }
  259.  
  260.    return crc;
  261. }
  262.